From 94a29cda9f75c9901667bf45ff25bd8c892cb416 Mon Sep 17 00:00:00 2001 From: Jeremy Bryant Date: Wed, 3 Apr 2024 21:05:09 +0100 Subject: [PATCH] * which-key.el (which-key--partition-list): Replace cl-subseq by take --- which-key.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index bf45386f578..decde2d10bd 100644 --- a/which-key.el +++ b/which-key.el @@ -2013,7 +2013,7 @@ that width." "Partition LIST into N-sized sublists." (let (res) (while list - (setq res (cons (cl-subseq list 0 (min n (length list))) res) + (setq res (cons (take (min n (length list)) list) res) list (nthcdr n list))) (nreverse res))) -- 2.30.2